+|VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 21, 3, 0 _clockPixelsgraphics\clock.bmpgraphics\clock.bmpday, date, and time controlClass3 _container_clockоўђџ ХХ8œ%g|vќUTєєєїќCъ†§ўUTHISPARENTTXTDATEVALUETimer,џџ1a29)ХDPROCEDURE Timer This.Parent.txtDate.Value = DATETIME() ENDPROC NTop = 3 Left = 8 Height = 12 Width = 14 Interval = 1000 Name = "Timer1" _clockTimer1timer _base.vcx_timerсDateFormat = 13 Alignment = 2 BackStyle = 0 BorderStyle = 0 Enabled = .F. Height = 21 Left = 3 Top = 5 Width = 256 BackColor = 255,255,0 DisabledBackColor = 255,255,255 DisabledForeColor = 0,0,0 Name = "txtDate" _clocktxtDatetextbox _base.vcx_textbox3timeformat Toggles between 12 and 24 hour format. ўђџ ўўЪO%›Е­ќUDTєїќCєїј§ў(TєєїќCєїјђј ѓј6§ўUTHIS TIMEFORMATTXTDATE DATEFORMATDblClick,џџ1‘2x)ўƒPROCEDURE DblClick THIS.TimeFormat = ABS(THIS.TimeFormat - 1) THIS.txtDate.DateFormat = IIF(THIS.TimeFormat=0,13,14) ENDPROC [Width = 263 Height = 28 BackStyle = 0 BorderWidth = 0 timeformat = 0 Name = "_clock"  containerlabelѕnsec nmin nhour elapsedseconds The time displayed in the stopwatch in elapsed seconds. *start Starts stopwatch. *stop Stops stopwatch. *reset Resets stopwatch. *updatedisplay Refresh display. *increment Increment the stopwatch display.  container _base.vcxtimer tmrSWatch _stopwatchRTop = 2 Left = 52 Height = 25 Width = 25 Interval = 1000 Name = "tmrSWatch" labelƒHeight = 180 Width = 198 builder = builderx = (HOME()+"Wizards\BuilderD,BuilderDForm") date_column = Name = "_olecalendar" Pixelsgraphics\watch.bmpgraphics\watch.bmp _olecalendar _olecalendar2Width = 92 Height = 27 BackStyle = 0 BorderWidth = 0 nsec = 0 nmin = 0 nhour = 0 elapsedseconds = 0 Name = "_stopwatch" Class1 olecontrol7 _base.vcx_timer olecontrol _stopwatchnsec nmin nhour Pixels _base.vcx lblSeparator1.stop watch with start, stop, and reset methodsClass _container _stopwatchЄAutoSize = .T. FontBold = .T. FontName = "Arial" FontSize = 13 BackStyle = 0 Caption = "00" Height = 22 Left = 68 Top = 5 Width = 20 Name = "lblSeconds"  _stopwatch lblSecondslabellabelЄAutoSize = .T. FontBold = .T. FontName = "Arial" FontSize = 13 BackStyle = 0 Caption = "00" Height = 22 Left = 37 Top = 5 Width = 20 Name = "lblMinutes"  _stopwatch lblMinuteslabellabelЁAutoSize = .T. FontBold = .T. FontName = "Arial" FontSize = 13 BackStyle = 0 Caption = "00" Height = 22 Left = 6 Top = 5 Width = 20 Name = "lblhours"  _stopwatchlblhourslabellabelЅFontBold = .T. FontName = "Arial" FontSize = 13 Alignment = 0 BackStyle = 0 Caption = ":" Height = 19 Left = 58 Top = 4 Width = 11 Name = "lblSeparator2"  _stopwatch lblSeparator2labellabelЅAutoSize = .T. FontBold = .T. FontName = "Arial" FontSize = 13 BackStyle = 0 Caption = ":" Height = 22 Left = 26 Top = 4 Width = 8 Name = "lblSeparator1"  _stopwatchаўђџ ЗЗЁe%YnhќU ™єєїўUTHISPARENT INCREMENTTimer,џџ1б2()З3PROCEDURE Timer THIS.Parent.Increment ENDPROC 2builder builderx date_column *refreshdisplay ,OLEObject = C:\WINNT\System32\mscomct2.ocx šPROCEDURE start This.tmrSWatch.enabled = .T. ENDPROC PROCEDURE stop This.tmrSWatch.enabled = .f. ENDPROC PROCEDURE reset This.nSec = 0 This.nMin = 0 This.nHour = 0 This.UpdateDisplay ENDPROC PROCEDURE updatedisplay LOCAL cSecDisplay , cMinDisplay, cHourDisplay cSecDisplay = ALLTRIM(STR(This.nSec)) cMinDisplay = ALLTRIM(STR(This.nMin)) cHourDisplay = ALLTRIM(STR(This.nHour)) This.lblSeconds.Caption = IIF(This.nSec < 10, "0" + m.cSecDisplay , m.cSecDisplay) This.lblMinutes.Caption = IIF(This.nMin < 10, "0" + m.cMinDisplay , m.cMinDisplay) This.lblHours.Caption = IIF(This.nHour < 10, "0" + m.cHourDisplay , m.cHourDisplay) ENDPROC PROCEDURE increment THIS.nSec = THIS.nSec + 1 IF THIS.nSec = 60 THIS.nSec = 0 THIS.nMin = THIS.nMin + 1 ENDIF IF THIS.nMin = 60 THIS.nMin = 0 THIS.nHour = THIS.nHour + 1 ENDIF THIS.UpdateDisplay THIS.ElapsedSeconds = (THIS.nHour * 3600) + ; (THIS.nMin * 60) + ; (This.nSec) ENDPROC PROCEDURE Init #DEFINE SEPARATOR_LOC ':' This.lblSeparator1.Caption = SEPARATOR_LOC This.lblSeparator2.Caption = SEPARATOR_LOC ENDPROC  ўђџ №№•k%БW!ќUTєєїќa§ўUTHIS TMRSWATCHENABLEDTєєїќ-§ўUTHIS TMRSWATCHENABLED=Tєїќј§ўTєїќј§ўTєїќј§ў ™єїўUTHISNSECNMINNHOUR UPDATEDISPLAYсЎїїїўTїќCCєїZ›§ўTїќCCєїZ›§ўTїќCCєїZ›§ў1TєєїќCєїј ђ й0ѕ їѓѕ ї6§ў1Tєє їќCєїј ђ й0ѕ їѓѕ ї6§ў1Tєє їќCєїј ђ й0ѕ їѓѕ ї6§ўU CSECDISPLAY CMINDISPLAY CHOURDISPLAYTHISNSECNMINNHOUR LBLSECONDSCAPTION LBLMINUTESLBLHOURSЯTєїќєїј§ў%ќєїј<§љRўTєїќј§ўTєїќєїј§ўў%ќєїј<§љ‘ўTєїќј§ўTєїќєїј§ўў ™єїў-Tєїќєїљєїј<єї§ўUTHISNSECNMINNHOUR UPDATEDISPLAYELAPSEDSECONDS+Tєєїќћ:§ўTєєїќћ:§ўUTHIS LBLSEPARATOR1CAPTION LBLSEPARATOR2start,џџstop^џџresetџџ updatedisplayљџџ incrementJџџInitUџџ122Ё2ёBAA3qBqABqAЁг3CA2-Hd€Р ф ­џ+)№ аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџф-vе“Р€OleObjectDataџџџџАAccessObjSiteData&џџџџџџџџџџџџ\ChangedPropsџџџџџџџџџџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџjE.#У‡б‹ујuMЁ!C4 fБ_РŠб \$8651A8940-87C5-11d1-8BE3-0000F8754DA1€' йб -^б -^яЭЋHьWеЬЛдьоьНрь7527-16060_Classes\zapfile\CLSIDabledFileEditing\server1555}InProcSeзўђџ ООT %e9ќUŠЎїўTїќєї§ў%ќCѕ їЁ §љƒў THIS.Month = MONTH(&cColumn) THIS.Day = DAY(&cColumn) THIS.Year = YEAR(&cColumn) ўUCCOLUMNTHIS DATE_COLUMNЬЏїїїўTїќCїi§ўTїќCї%§ўTїќCїH§ўTїќCѕ їѕ їѕ ї$§ўTїќєї §ў%ќCѕ їЁ §љ›ў"REPLACE &cColumn WITH m.dValue ў%ќCйTHISFORMbйO§љХў ™є ї ўўU STARTDATEENDDATECANCELNYEARNDAYNMONTHDVALUECCOLUMNTHIS DATE_COLUMNTHISFORMREFRESHrefreshdisplay,џџ SelChangeжџџ1q"СсA3ђђёёВ"!AТЁA2Р р3 )О>PROCEDURE refreshdisplay LOCAL cColumn cColumn = this.date_column IF !EMPTY(m.cColumn) THEN THIS.Month = MONTH(&cColumn) THIS.Day = DAY(&cColumn) THIS.Year = YEAR(&cColumn) ENDIF ENDPROC PROCEDURE SelChange *** ActiveX Control Event *** LPARAMETERS startdate, enddate, cancel nYear = YEAR(startdate) nDay = DAY(startdate) nMonth = MONTH(startdate) dValue = DATE(m.nYear, m.nMonth, m.nDay) cColumn = THIS.date_column IF !EMPTY(m.cColumn) REPLACE &cColumn WITH m.dValue ENDIF IF TYPE("THISFORM")="O" THISFORM.Refresh ENDIF ENDPROC